El Mac 9/El Mac 9.iso/Shareware/Applications/Charting Coach v1.5/Charting Coach v1.dxr/00254.ls

Text File | 1996-04-08 | 303 b | 15 lines

on mouseUp
  global newday, firstdayNo
  if the doubleClick then
    exit
  end if
  set oldBox to newday + firstdayNo - 1
  if (oldBox > 0) and (oldBox < 38) then
    set the ink of sprite (oldBox + 8) to 36
  end if
  puppetVisible(1, 47, 1)
  puppetStatus(9, 47, 0)
  prepfrontpage()
  cursor(0)
end